program stackuser ;
uses crt,stack;
var value:integer;


begin
write ('enter an integer');
readln(value);
while (value) <>  0 do

begin
if value > 0 then push (value);
if value < 0 then
if not empty then writeln (pop);

writeln ('enter a integer:');
readln(value);
end;
end.
